home *** CD-ROM | disk | FTP | other *** search
- /* Sixties fat Glow 1.0
- by Oscar, 11 Dec 2003
-
- To run this: DROP the Script from Assets to the Object in Menu.
-
- this example creates fancy sixties-like glow to an object
- works great with text with strange font
- Note: because of the bitmap merging, the text will become not-editable
- */
-
- // Get the current menu and selected object when you drag and drop script
- // Note: if testing from Script editor make sure you have just one menu opened on desktop,
- // in such case the MenuGetCurSel will return currently opened menu
- menu = MenuGetCurSel()
- // MenuGetCurSel returns: VTS menu 1..255, VMG menu 10001..10255
-
- if menu==0 then
- print "This script can be used only with menu."
- end
- endif
-
- // show the current menu on top of all others
- MenuActivate(menu)
-
- // Get the currently selected object on that menu
- // or an object that the script was dropped on
- object= ObjectGetCurSel(menu)
-
- if object==0 then
- print "You have to use the script on an object (selected or dropped on)"
- end
- endif
-
- intensity = 20
-
- // The object is defined by the menu number and the object number
-
- // set Shadow offset to be zero
- ObjectShadowOffset(menu,object,0,0)
- // set shadow attributes
- ObjectShadowAttr(menu,object, intensity,30)
-
- // create a shadow color and type (5=fat) then merge object with this shadow few times
- for i=0 to 5
- ObjectSetShadow(menu,object,RGB(255,i*50,0),5)
- ObjectMergeShadow(menu,object)
- next i
-
- // now put a larger fat shadow yellow
- ObjectShadowAttr(menu,object,60,30)
- ObjectSetShadow(menu,object,RGB(255,255,0),5)